sub InsertPortrait #por,#nopor
  if #nopor="Y"
    #por=""
  endif
  if #portraitWidth<1
    #por=""
  endif
  if #por!=""
    #thumbW=#portraitWidth
    newline 6
    #boxtop=#vpos$
    HMoveTo #rightMargin$-#rightSkip-#thumbW-8
    
    cell GroupBox
      set width -1 border none titleposition none
      set cellbackground "Portrait Border"
      
      #leftSkip=1
      newline -#lineSkip-6
      #lineSkip=1
      #rightSkip=1
      cell LinkButton
      set width -1
      if #thumbW<2.5*#thumbnailSize$
        objectImage #por
      else
        objectFull #por
      endif
      #mmRatio=#imageHeight$/#imageWidth$
      set height #cellWidth$*#mmRatio imageWidth #cellWidth$
      set imageposition above
      set border none target parent
      RecordLink #por
      Help local("Click to view and edit multimedia object")

    endGroup
    newline -10
    #boxend=#vpos$
    #rightSkip=#rightSkip$
    #leftSkip=#leftSkip$
    #lineSkip=#lineSkip$
    
    newline
    DisplayWidth #oldWidth-#rightSkip$-#thumbW-8
    MoveTo #leftSkip,#boxtop-8
  else
    #boxend=#vpos$
  endif
endSub